home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).do / PICTURE PACKER INSTRUCTIONS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  538b  |  9 lines
  1. 10  REM    TO USE,BLOAD PICTURE   PACKER (A$1000,L$11D) AND   BLOAD UNPACKER (A$300,L$82)
  2. 20  REM     BLOAD HIRES PICTURE  IN PAGE 1($2000),CALL PACKER FROM BASIC(4096) OR MONITOR(1000G) 
  3. 30  REM     BSAVE PACKED PICTURE   WITH TITLE,A$4000,L(PEEK(0)+256*(PEEK(1)-64))
  4. 40  REM    TO RELOAD,BLOAD PACKEDPICTURE(A$4000),HGR, AND    CALL768 OR *300G
  5. 50  REM  CREATIVE COMPUTING,JUN '81
  6. 60  TEXT : HOME : LIST 10: LIST 20: LIST 30: LIST 40
  7. 70  DATA    2,8,14,19
  8. 80  FOR I = 1 TO 4: READ N: VTAB N: HTAB 1: PRINT "        ": NEXT I
  9. 90  VTAB 23